'脚本文件系统对象
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")